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ABSTRACT 


The  computer  program  TAPTRN,  a  utility  routine  used  to  read 
magnetic  tapes  of  unknown  content  and  format,  is  described  for  use  on  an 
HP  1000  computer.  It  provides  the  user  ready  access  to  all  the  capabilities 
of  the  tape  handling  hardware  of  the  HP  1000.  TAPTRN  is  documented  in  terms 
of  a  brief  description  of  the  utility,  its  capabilities,  a  guide  on  how  to 
use  it,  and  the  source  and  pseudocode  for  the  routines  written. 


r£sum£ 


Cet  ouvrage  porte  sur  le  programme  d'ordinateur  TAPTRN,  sous- 
programme  de  service  utilise  avec  l'ordinateur  HP  1000  pour  lire  des  bandes 
magnetiques  de  presentation  et  de  contenu  inconnus.  Ce  programme  permet  A 
1' utilisateur  d' avoir  facilement  acces  A  toutes  les  possibilites  du 
derouleur  de  bande  de  l'ordinateur  HP  1000.  L' auteur  fait  une  brAve 
description  du  sous-programme  de  service  TAPTRN,  explique  quelles  sont  ses 
possibilites,  fournit  des  instructions  sur  la  fagon  de  l'utiliser  et  indique 
la  source  et  le  pseudo-code  des  routines  ecrites. 
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1.0  INTRODUCTION 


TAPTRN  is  a  utility  program  to  aid  in  the  processing  of  digital 

tapes. 


This  report  describes  two  programs,  TAPTRN  and  TSTAPE.  TAPTRN  is 
a  FORTRAN  callable  subroutine  designed  to  facilitate  the  processing  of 
digital  tapes.  It  contains  a  variety  of  functions  which  makes  available  all 
the  capabilities  of  the  mag  tape  hardware.  This  subroutine  is  written  in 
FORTRAN  4X  and  FLECS,  a  FORTRAN  preprocessor. 

TSTAPE  is  a  main  program,  written  in  FORTRAN  4X,  that  has  been 
created  to  facilitate  the  usage  of  the  TAPTRN  program  by  providing  full 
access  to  all  the  TAPTRN  functions. 

Both  of  the  programs,  TAPTRN  and  TSTAPE,  are  intended  to  be  used 
on  an  HP1000  computer  with  a  RTE  IVB  operating  system. 

In  the  following  sections,  TAPTRN  will  be  documented  under  the 
headings:  Program  Overview,  Calling  Sequence  and  Parameter  List,  and  Error 
Codes.  The  source  listing  for  TAPTRN  is  found  in  Appendix  A  and  the  pseudo 
code  describing  the  source  listing  in  Appendix  B.  TSTAPE  will  be  documented 
under  the  headings:  Program  Overview,  and  Compiling  and  Running  the  Program. 
The  source  listing  for  TSTAPE  is  found  in  Appendix  C  and  the  pseudo  code 
describing  the  source  listing  in  Appendix  D. 


2.0  TAPTRN  DESCRIPTION 


2 . 1  PROGRAM  OVERVIEW 


The  facilities  provided  by  TAPTRN  are  as  follows: 

1)  Variable  record  length. 

2)  Ability  to  skip  and  backspace  multiple  records  or  files,  thereby 
allowing  the  user  to: 


a)  skip  to  subsequent  files  without  having  to  read  through  intervening 
files; 

b)  position  the  tape  at  the  logical  end  of  volume; 

c)  perform  a  logical  rewind  to  position  the  tape  at  the  beginning  of  a 
file  which  is  not  the  first  file  on  the  reel. 

3.  Provide  the  calling  program  with  information  on  the  tape  position, 
i.e.  BOT,  EOF. 

4.  Return  success  or  failure  on  all  requested  functions  along  with  device 
status  word. 

5.  Erase  four  inches  of  tape. 

TAPTRN  has  ten  different  functions.  With  this  capability,  the 
user  has  all  the  necessary  functions  to  perform  any  combination  of  operations 
on  the  tape  drive.  The  only  restrictions  imposed  are  those  of  the  hardware 
limitations  of  the  controller  and  drive. 


2.2  CALLING  SEQUENCE  AND  PARAMETER  LIST 


TAPTRN  is  called  by  the  FORTRAN  statement: 

CALL  TAPTRN ( IUNIT , KODE , KOUNT , IERR, NTRAN , IPOS , ISTAT , IBUFF ) 


None  of  these  parameters  are  optional,  however,  some  of  the  parameters  are 
for  input,  and  some  are  for  output.  The  input  parameters  are: 

IUNIT  -  the  logical  unit  number  assigned  to  the  tape  drive,  it  has 

to  be  zero  (not  related  to  the  system  logical  unit  numbers). 

KODE  -  the  function  code. 

KOUNT  -  the  count,  used  in  combination  with  KODE  as  shown  in  the  table 
for  TAPTRN  function  codes. 

IBUFF  -  the  user  buffer  name,  an  integer  array  to  receive  the  data 

read  from  the  tape,  or  it  contains  the  data  to  be  written  to 
the  tape.  The  maximum  length  allowed  for  this  buffer  is 
9950  words. 

The  output  parameters  are: 


IERR  -  the  error  code,  where: 


0  -  successful  completion  of  the  requested  operation 
<0  -  failure  of  requested  operation. 


IPOS  -  the  tape  position,  where: 

=1,  BOT 
=2,  EOF 
=3,  EOT 
=4,  EOV 

ISTAT  -  status  return  information  (see  table). 

NTRAN  -  for  reading/writing  records,  it  contains  the  actual  number  of 
words  transferred  (in  reading,  this  may  differ  from  KOUNT  if 
an  EOF  is  encountered).  For  the  skip/backspace  functions, 
NTRAN  contains  the  number  of  files/records  skipped. 


TABLE  1 

TAPTRN  Function  Codes 
KODE  Function 

-2  Unlock  logical  unit 

-1  Obtain  resource  number  and  lock  logical  unit 

0  Status  request 

1  Rewind  tape 

2  Write  end-of-file 

3  Skip  KOUNT  records  forwards 

4  Backspace  KOUNT  records 

5  Skip  KOUNT  files  forwards 

6  Backspace  KOUNT  files 

7  Erase  four  Inches  of  tape 

8  Read  a  record  and  transfer  up  to  KOUNT  words 
(maximum  500  words) 

9  Write  a  record  KOUNT  words  long  (maximum  500  words) 


TABLE  2 


Status  Return  Information  (ISTAT) 


ISTAT 


Meaning 


1  Parity  and/or  timing  error. 

2  Reel  does  not  have  Write  enable  ring. 

3  I/O  request  requested: 

a)  Tape  motion  required,  but  tape  is  at  load  point. 

b)  Backward  tape  motion  required,  but  tape  is  at  load 
point. 

c)  Write  request  was  given,  but  reel  does  not  have 
write  enable  ring. 

4  Timing  error  on  last  read/write  operation. 

5  End-of-tape  marker  sensed. 

6  Start-of-tape  marker  sensed. 

7  End-of-file  record  encountered  when  reading,  forward 

spacing,  or  backward  spacing. 

8  Unit  available  for  use. 

9  Unit  disabled. 

10  Unit  currently  in  operation. 

11  Unit  waiting  for  an  available  DMA  channel. 


2.3  ERROR  CODES 


TAPTRN  carried  out  a  number  of  checks  on  the  input  parameter  list 
to  ensure  valid  requests.  The  code  placed  in  IERR  is  generated  by  TAPTRN 
and  not  by  the  operating  system.  The  error  codes  which  can  be  set  by  TAPTRN 
are  listed  below. 


*.  /.  \  ,•  .*  .*.  *. 
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TAPTRN  Error  Codes  (IERR) 


Code 

Description 

Source 

-2 

Invalid  function  code. 

KODE  out  of  range  (-2  to  9) . 

-37 

No  file  accessed  on  logical 
unit  number. 

Logical  unit  was  not  locked. 

-92 

Invalid  logical  unit. 

Logical  unit  number  was  not  zero 

-93 

Logical  unit  was  not  unlocked. 

Specified  logical  unit  not  in 
SST. 

3.0  TSTAPE  DESCRIPTION 


3.1  PROGRAM  OVERVIEW 


TSTAPE  has  been  created  to  (a)  facilitate  the  usage  of  the  TAPTRN 
program  and  (b)  be  used  as  an  aid  in  the  analysis  of  computer  tapes  of 
unknown  format.  TSTAPE  has  many  commands  which  provide  full  access  to  all 
the  TAPTRN  functions.  These  are  as  follows: 

COMMAND  SUMMARY  (X=UNIT,DEFAULT=0) 

IN (X)  =  INITIALIZE  THE  DRIVE  (-****MUST  BE  FIRST  COMMAND  INPUT****) 

RD(X)  =  READ  A  RECORD 

WT (X)  =  WRITE  A  RECORD 

DI  =  DISPLAY  A  READ/WRITE  BUFFER 

ST  =  DRIVE  STATUS  (LAST  COMMAND) 

SL  =  SET  RECORD  LENGTH 

RW(X)  =  REWIND  TAPE 

NR(X)  =  NUMBER  OF  RECORDS  IN  THE  FILE 
SK(X)  =  SKIP 

RL(X)  =  FIND  THE  RECORD  LENGTH  (WORDS) 

EF (X)  =  WRITE  AN  EOF 
TS(X)  =  WRITE/READ  TEST 

SH  =  SHOW  THE  FIRST  RECORD  OF  EACH  FILE  ON  THE  TAPE 
EX  =  EXIT 

HE  =  HELP 


When  first  using  this  tape  package,  the  most  helpful  command  is 
HE,  the  help  command.  This  command  will  display  the  command  summary  shown 
above,  on  the  screen. 


The  commands  are  self  explanatory  but  a  few  will  be  expanded  upon 
here.  It  should  be  noted  that  the  first  command  that  should  be  input  is 
IN(X),  initialize  the  drive.  If  another  command  is  input  first,  before  this 
one,  an  error  message  will  appear  stating  that  the  drive  has  not  been 
initialized.  This  command  has  been  incorporated  to  accommodate  multiple  tape 
drives  on  the  system,  allowing  the  user  to  acquire  one  drive  solely  for  their 
use. 

The  command  DI,  Display  the  Read/Write  Buffer,  has  the  capability 
to  display  the  buffer  in  ASCII,  integer  or  octal  format,  and  to  convert 
EBCDIC  and  BCD  data  to  ASCII  before  displaying.  The  user  will  be  queried 
which  of  these  capabilities  is  to  be  utilized  at  the  appropriate  time. 

For  all  the  commands  that  have  (X)  included  in  them,  i.e.  IN(X), 
it  is  not  necessary  to  include  the  (X)  with  the  command  if  the  user  wishes 
to  use  the  unit  default  of  0.  For  example,  instead  of  entering  RD(0) ,  the 
user  can  enter  RD. 


3.2  COMPILING  AND  RUNNING  THE  PROGRAM 


In  order  to  run  this  program,  enter  the  following  command  while 
in  file  manager: 

: RU , TSTAPE 

The  initial  screen  display  introducing  the  program  will  then  appear. 

Command  files  have  been  created  in  case  it  is  necessary  to  re¬ 
compile  and  load  the  program.  A  listing  of  these  command  files  is  found  in 
Appendix  E.  The  rebuilding  of  the  program  is  done  in  two  stages.  First 
invoke  the  transfer  file,  RTAPE,  by  entering: 

:TR,RTAFE 

in  order  to  rebuild  the  TAPTRN  program.  Then,  invoke  the  transfer  file, 
CTSTAP,  by  entering: 

:TR,CTSTAP 

in  order  to  rebuild  the  TSTAPE  program  and  to  link  and  load  the  TSTAPE  and 
TAPTRN  programs  together.  The  program  TSTAPE,  is  then  ready  to  run  in  the 
manner  stated  above. 


4.0  SUMMARY  COMMENTS 


This  report  has  described  the  two  programs,  TSTAPE  and  TAPTRN. 
TSTAPE  has  been  described  along  with  a  description  of  how  to  compile  and  run 
the  program.  TAPTRN  has  been  described  along  with  a  description  of  its 
parameter  list,  error  codes  and  status  return  information.  Further  docu¬ 
mentation  of  each  program  is  provided  in  the  comments  of  the  program. 
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APPENDIX  A 


TAPTRN  SOURCE  LISTING 
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APPENDIX  B 


PSEUDOCODE 

Subroutine  TAPTRN 

Initialize  error  codes  and  other  variables 

If  (Kode  <  -2  or  Kode  >  9) 

then 

Return  indicating  KODE  range  error 
endif 

If  (Iunit  +  0) 
then 

Return  indicating  Invalid  logical  unit  number  error 
endif 

If  (Kode  1  0  and  unit  not  locked) 
then 

Return  indicating  resource  not  locked  error 
endif 

Case  Function  Code  of 

-2:  Unlock  the  logical  unit 
Set  locked  flag  to  false 
Return 

-1:  Lock  the  logical  unit 
Set  locked  flag  to  true 
Return 


0:  Obtain  present  drive  status 
Set  ISTAT  to  reflect  status 
Return 

1:  Manipulate  the  bits  for  rewind  code 
Obtain  present  driver  status 
Wait  until  the  driver  is  available  for  use 
Return 

2:  Manipulate  the  bits  for  end-of-file  code 
Obtain  present  driver  status 
Wait  until  the  driver  is  available  for  use 
Return 

3:  Initialize  loop  counters 

While  (record  counter  <  KOUNT  and  NOT (EOF)) 

Manipulate  bits  to  space  1  record  forwards 

Obtain  present  driver  status 

Wait  until  device  is  ready  for  use 

If  end  of  file  record  bit  is  set 

then 


EOF  =  True 

Set  ISTAT  to  reflect  EOF 
Set  IPOS  to  reflect  EOF 
Decrement  record  counter 


Else 

If  end-of-tape  marker  bit  is  set 
then 


EOT  =  True 

Set  ISTAT  to  reflect  EOT 
Set  IPOS  to  reflect  EOT 
Decrement  record  counter 


endif 

Increment  record  counter 
Endwhile 

If  (Record  counter  >  KOUNT) 

NTRAN  =  record  counter-1 


else 


endif 

Return 


NTRAN  =  record  counter 


23 


4:  Initialize  loop  counters 

While  (Record  counter  <  KOUNT  and  NOT (EOF)) 

Manipulate  bits  to  backspace  one  record 
Obtain  present  driver  status 
Wait  until  device  is  ready  for  use 
If  end  of  file  record  bit  is  set 
then 


EOF  =  True 

Set  ISTAT  to  reflect  EOF 
Set  IPOS  to  reflect  EOF 
Decrement  record  counter 


else 

If  start  of  tape  marker  bit  is  set 
then 

EOF  =  True 

Set  ISTAT  to  reflect  BOT 
Set  IPOS  to  reflect  BOT 
Decrement  record  counter 

endlf 

endif 

Endwhile 

If  (Record  counter  >  KOUNT) 
then 


NTRAN  =  record  counter-1 


else 

NTRAN  *  record  counter 

endif 

Return 

5:  Initialize  loop  counters 

While  (Record  counter  <  KOUNT  and  NOT  (EOT)) 

Manipulate  bits  for  forward  space  one  file 

Obtain  present  driver  status 

Wait  until  device  is  ready  for  use 

If  end-of-tape  marker  bit  is  set 

then 


EOT  «  True 

Set  ISTAT  to  reflect  EOT 
Set  IPOS  to  reflect  EOT 
Decrement  record  counter 

endif 

Increment  record  counter 
Endwhile 

If  (Record  counter  >  KOUNT) 
then 


NTRAN  ”  record  counter-1 


NTRAN  =  record  counter 


end  if 
Return 

6:  Initialize  loop  counters 

While  (Record  counter  <  KOUNT  and  NOT  (EOT)) 

Manipulate  bits  to  backspace  one  file 
Obtain  present  driver  status 
Wait  until  device  is  ready  for  use 
If  start-of-tape  marker  bit  is  set 
then 


EOT  =  True 

Set  ISTAT  to  reflect  EOT 
Set  IPOS  to  reflect  EOT 
Decrement  record  counter 


end  if 

Increment  record  counter 
Endwhile 

If  (Record  counter  >  KOUNT) 
then 

NTRAN  =  record  counter-1 

else 

NTRAN  =  record  counter 

endif 

Return 

7 :  Manipulate  bits  to  erase  four  inches  of  tape 
Obtain  present  driver  status 
Wait  until  device  is  ready  for  use 
Return 


8:  Read  the  record 

Determine  the  present  driver  status 
Return 

9:  Write  the  record 

Determine  the  present  driver  status 
Return 

End  Case  on  Function  Code 
Return 

End  Subroutine  TAPTRN 


Subroutine  STWAT 


c  Subroutine  to  wait  for  driver  to  be  ready  for  use 
While  driver  not  available  for  use 

Obtain  present  driver  status 

Endwhile 

Return 

End  Subroutine  STWAT 


Subroutine  MANIP 


c  Subroutine  to  manipulate  bits  for  desired  function  code 

Shift  function  code  six  bits  to  the  left  in  ICNWD 
Add  the  logical  unit  number  to  ICNWD 
Perform  the  function 

Return 

End  Subroutine  MANIP 


Subroutine  STATS 


c  Subroutine  to  set  appropriate  bits  in  ISTAT  to  reflect 
c  present  driver  status 

If  neither  the  14th  nor  15th  bits  in  driver  status  are  set 
then 

ISTAT-8 

If  14th  bit  set  in  driver  status 
then 


ISTAT=9 

If  15th  bit  set  in  driver  status 
then 


ISTAT-10 

If  14th  and  15th  bits  are  set  in  driver  status 
then 


ISTAT-11 


Initialize  loop  counters 

While  (Present  bit  <  7  and  NOT  FOUND) 

If  Present  bit  in  driver  status  set 
then 

ISTAT  -  Present  bit 
FOUND  =  Trve 

endif 

Present  bit  =  Present  bit  +1 

Endwhile 

Return 

End  Subroutine  STATS 
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APPENDIX  D 


PROGRAM  TSTAPE 


Display  start  up  message  on  the  console 
Repeat 

Move  the  cursor  to  line  22 
Read  in  the  desired  command 
If  not  a  valid  command 
then 

Display  error  message 

else 


If  the  drive  has  not  yet  been  initialized 
then 


Display  error  message 

else 


Move  cursor  to  line  22 
Turn  memory  lock  on 
Case  Command  of 

In:  Initialize  the  tape  drive 
Call  TAPTRN  (KODE  -  -1) 

Display  Status 

SH:  Show  the  contents  of  the  first  record  of  each  file 
End-of-volume  ■  False 
Move  cursor  to  line  22 

Determine  the  format  the  record  is  to  be  displayed  in 

Rewind  the  tape 

Repeat 

Read  a  record 
If  EOV  encountered 
then 


End-of-volume  ■  True 


end  if 

If  not  EOV 


48 


Write  out  number  of  words  transferred 
Display  record  of  format  desired 
While  not  EOF 

Read  next  record 

Endwhile 

endif 

Until  EOV 
Display  status 

RD:  Read  a  record 

Move  cursor  to  line  22 
Read  in  the  number  of  words  to  be  read 
(Default  is  9950  words) 

Initialize  buffer  to  zeroes 
Call  TAPTRN  (Kode  **  8) 

Move  cursor  to  line  22 
If  end  of  file  marker  read 
then 

Display  appropriate  message 


Determine  if  buffer  read  is  to  be  dumped  to  the 
line  printer 

If  buffer  is  to  be  dumped 
then 

Move  cursor  to  line  22 
Turn  off  memory  lock 
If  ASCII  output  desired 
then 

Output  data 
Display  status 

endif 

If  Integer  output  desired 
then 

Output  data 
Display  status 

endif 

If  Octal  output  desired 
then 

Output  data 
Display  status 

endif 

If  EBCDIC  output  desired 
then 

Call  EBCDIC 

Output  converted  ASCII  data 
Display  status 


"1 


-  .•»  .•> 


If  BCD  output  desired 
then 

Call  BCD 

Output  converted  ASCII  data 
Display  status 

endlf 

else 

Display  status 
endlf 

WT:  Write  a  record 

Move  cursor  to  line  22 

Determine  number  of  words  In  the  record  that  are 
to  be  written 

Determine  starting  place  In  the  write  buffer 
Call  TAPTRN  (KODE  «  9) 

DI:  Display  the  read  buffer 
Move  cursor  to  line  22 

Determine  which  form  of  output  is  desired 

If  ASCII  output  desired 

then 

Output  data 
Display  status 

endlf 

If  Integer  output  desired 
then 

Output  data 
Display  status 

endlf 

If  Octal  output  desired 
then 

Output  data 
Display  status 

endlf 

If  EBCDIC  data  desired 
then 

Call  EBCDIC 

Output  converted  ASCII  data 
Display  status 

endlf 

If  BCD  output  desired 
then 

Call  BCD 

Output  converted  ASCII  data 
Display  status 
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ST:  Status  of  the  drive 
Turn  off  memory  lock 
Display  status  of  the  last  command 

SL:  Set  record  length 

Move  cursor  to  line  22 
Read  In  desired  record  length 
Display  status 

RW:  Rewind  tape 

Call  TAPTRN  (Kode  -  1) 

Display  status 

NR:  Number  of  records  in  a  file 
If  not  (BOT)  or 

not  (EOF)  display 
error  message 
endif 

Record  counter  =  0,  EOF  =  False 
Repeat 

Call  TAPTRN  (Kode  -  8) 

If  end  of  file  has  been  reached 
then 

Display  the  number  of  records  read  and  the 
length  of  the  last  data  record  read 
EOF  =  True 

else 

Increment  record  counter 
endif 

Until  EOF  a  True 
Display  status 

SK:  Skip  to  end  of  file 
Move  cursor  to  line  22 
Determine  if  record  or  file  skip 
Determine  number  of  records /files  to  skip 
If  record  skip 
then 

Kode  *=  3 

else 

Kode  -  5 
endif 

If  number  of  records /files  to  skip  <  0 
then 


Kode  =  Kode  +1 

Number  of  records /files  to  skip  - 
-(Number  of  records/files  to  skip) 
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endif 

Call  TAPTRN  (Kode) 

Display  status 

RL:  Record  length 

Call  TAPTRN  (Kode  =  8) 

Move  cursor  to  line  22 
Display  the  number  of  words  read 
Display  status 

EF:  Write  End  of  File  marker 
Call  TAPTRN  (2) 

Display  status 

TS:  Test  Read/Write  Pattern 
Move  cursor  to  line  22 
Determine  length  of  record  to  write 
Determine  the  number  of  records  to  be  written 
Determine  if  buffer  dumps  desired 
For  1=1  to  Number  of  records  to  be  written 

If  buffer  dumps  desired 
then 

Output  buffer  in  appropriate  form 
endif 

Call  TAPTRN  (Kode  =  9) 

Increment  length  of  record  to  write 

Endfor 

Call  TAPTRN  (Kode  =  2) 

Call  TAPTRN  (Kode  =  2) 

Call  TAPTRN  (Kode  =  1) 

For  1=1  to  Number  of  records  to  be  read 

Call  TAPTRN  (Kode  »  8) 

If  buffer  dumps  desired 
then 

Output  buffer  in  appropriate  form 
endif 

Increment  length  of  record  to  read 
Endfor 

Call  TAPTRN  (Kode  =  1) 

EX:  Exit 

Turn  off  memory  lock 
Call  TAPTRN  (Kode  =  -2) 

Halt 

HE:  Help  facility 

Open  external  file 

Read  command  summary  for  external  file 
Close  file 
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End  Case  (of  commands) 
endif  (valid  command) 
Until  Exit  command  chosen 

End  Program  TSTAPE 


SUBROUTINE  TIME 


c  The  following  subroutine  gets  the  current  system  time, 
c  This  subroutine  is  used  in  order  that  all  messages  displayed  on  the 

c  console  to  the  user  are  present  for  2  seconds. 

Subroutine  TIME 

Obtain  the  current  system  time 
Sec  *  current  second 
Difference  -  0 
Repeat 

Obtain  current  system  time 
Difference  ■  current  second  -  Sec 

Until  difference  >  2 
Return 

End  Subroutine  TIME 


SUBROUTINE  BCD  (BUFF,  NO) 

c  The  following  subroutine  converts  an  array  of  BCD  characters  to  their 
c  corresponding  ASCII  characters. 

c  The  characters  to  be  converted  are  input  in  BUFF  and  the  number  of 
c  characters  to  convert  are  input  in  NO. 

If  there  are  characters  to  convert 
then 

For  I«1  to  NO 

Temp  -  BUFF (I) 

Get  the  upper  8  bits  and  shift  left 
Look  up  this  number  in  the  table  for  ASCII  equivalent 
Get  lower  8  bits  and  look  up  the  ASCII  equivalent 
Store  the  ASCII  equivalent  back  into  BUFF (I) 

Endfor 

endlf 

End  Subroutine  BCD 


SUBROUTINE  &EBCDIC  (BUFF, NUMBER) 

c  The  following  subroutine  accepts  an  array  of  words,  BUFF,  (maximum  size 
c  9950)  coded  in  EBCDIC  and  converts  each  word  to  ASCII  code.  The  size 

c  of  the  array  is  passed  through  the  parameter  "NUMBER"  and  the  resultant 

c  ASCII  code  is  passed  back  through  the  parameter  "BUFF". 

If  NUMBER  >  0 
then 


For  1-1  TO  NUMBER  DO 


TEMP  -  BUFF (I) 

HIGH  *  TEMP  SHIFTED  RIGHT  8  BITS 
LOW  =  HIGH  SHIFTED  LEFT  8  BITS 
LOW  -  TEMP-LOW 

CONVERT  HIGH  TO  A  DECIMAL  NUMBER 

CONVERT  LOW  TO  A  DECIMAL  NUMBER 

CONVERT!  =  ASCII  EQUIVALENT  OF  EBCDIC  HIGH 

CONVERT 2  =  ASCII  EQUIVALENT  OF  EBCDIC  LOW 

BUFF (I)  *  CONVERT1  SHIFTED  LEFT  8  BITS  +  CONVERT2 

Endfor 

end  if 
Return 

End  Subroutine 


SUBROUTINE  &KLOAD  (Row, Column) 

c  This  subroutine  moves  the  cursor  to  the  desired  row  and  column, 

c  These  values  are  given  in  the  input  parameters  Row  and  Column. 

Clear  Buffer 

Encode  the  octal  commands  for  moving  the  cursor  to  the 
desired  position  into  Buffer 
Write  out  Buffer  to  the  screen 
Return 

End  Subroutine 


0001  :#*This  transfer  file  compiles  the  TAP  IN  progran. 
0  002  :  RU  ,FLECS  ,  ATAPTRN  ,  AT  APE  ;  13,  TAPE:  1.3 
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